<!--#include file="lib/utf-8.asp"-->
<!--#include file="lib/connopen.asp"-->
<!--#include file="lib/asp-common-lib.asp"-->
<!--#include file="lib/asp-json-lib.asp"-->
<%
Response.ContentType = "application/json"
dim json,post,flag,sql,rs
id=saferequest("id",1)
set json=jsObject()
json("bStatus")=false
if CheckOnlyPostFlag(session("aaPostFlag"),3,5) then
    sql="delete * from feeinvoice where id="&id
    call ExecuteCommand(sql,false)
    if err.number=0 then 
        json("bStatus")=true
        json("sInfo")="删除成功"
    else
        json("sInfo")="删除出错"
    end if
else
    json("sInfo")="没有删除权限"
end if
json.Flush
%>
<!--#include file="lib/connclose.asp"-->